home *** CD-ROM | disk | FTP | other *** search
/ AmigActive 2 / AACD 2.iso / AACD / Online / XPhone / Rexx / RXTest.xprx
Encoding:
Text File  |  1999-02-01  |  1.6 KB  |  84 lines
  1. /*
  2. **    DEBUG                    STRING,INT/N,SWITCH/S
  3. **    XP_BEEPSCREEN            NULL,
  4. **
  5. **    XP_REQUESTFILE            TITLE/K,PATH/K,FILE/K,PATTERN/K,MULTI/S,ONLYDRAWER/S,SAVE/S,STEM=NAME/K
  6. **    XP_REQUESTNOTIFY        TITLE/K,PROMPT/A/F
  7. **    XP_REQUESTNUMBER        DEFAULT/K/N,SECRET/S,PROMPT/K/F
  8. **    XP_REQUESTRESPONSE        TITLE/K,OPTIONS/K,PROMPT/A/F
  9. **    XP_REQUESTSTRING        DEFAULT/K,SECRET/S,PROMPT/K/F
  10. **
  11. **    XP_DIAL                    NUMBER
  12. */
  13.  
  14. options results
  15. address 'XPHONE_REXX'
  16.  
  17. /*
  18. DEBUG "String" 1234 switch
  19. say "DEBUG"
  20. say
  21. say "rc:     " || rc
  22. say "result: " || result
  23. say
  24.  
  25.  
  26. XP_BEEPSCREEN
  27. say "XP_BEEPSCREEN"
  28. say
  29.  
  30.  
  31. XP_REQUESTFILE TITLE '"Dies ist der Titel!"' PATH "RAM:T/" FILE "SlideShow"
  32. say "XP_REQUESTFILE"
  33. say
  34. say "rc:     " || rc
  35. say "result: " || result
  36. say
  37.  
  38.  
  39. XP_REQUESTNOTIFY TITLE '"RequestNotify Test"' PROMPT 'XP_REQUESTNOTIFY funktioniert!'
  40. say "XP_REQUESTNOTIFY"
  41. say
  42.  
  43.  
  44. XP_REQUESTSTRING DEFAULT '"Default Text"' PROMPT 'Bitte geben sie einen Text ein:'
  45. say "XP_REQUESTSTRING"
  46. say
  47. say "rc:     " || rc
  48. say "result: " || result
  49. say
  50.  
  51.  
  52. XP_REQUESTRESPONSE TITLE '"RequestResponse Test"' OPTIONS '"_Ok|_Vielleicht|_Maybe|_Kann sein|Definitiv _NICHT"' PROMPT 'XP_REQUESTRESPONSE funktioniert!'
  53. say "XP_REQUESTRESPONSE"
  54. say
  55. say "rc:     " || rc
  56. say "result: " || result
  57. say
  58.  
  59.  
  60. XP_REQUESTNUMBER DEFAULT 42 PROMPT 'Bitte geben sie eine Zahl ein:'
  61. say "XP_REQUESTNUMBER"
  62. say
  63. say "rc:     " || rc
  64. say "result: " || result
  65. say
  66.  
  67.  
  68. XP_DIAL
  69. say "XP_DIAL"
  70. say
  71. say "rc:     " || rc
  72. say "result: " || result
  73. say
  74.  
  75. */
  76.  
  77. XP_REQUESTRESPONSE TITLE '"RequestResponse Test"' OPTIONS '"_Ok|_Vielleicht|_Maybe|_Kann sein|Definitiv _NICHT"' PROMPT 'XP_REQUESTRESPONSE funktioniert!'
  78. say "XP_REQUESTRESPONSE"
  79. say
  80. say "rc:     " || rc
  81. say "result: " || result
  82. say
  83.  
  84.